<!--#include file="Ini.asp" -->
<html>
<head>
<title><% = sTitle %></title>
 <% 
'menu ebsa para PALM
     If Session("Usuario") = "" Then %>
       <form method='post' name='ok' action='verlogin.asp'>
    <% end if %>
<table width='100%' align='center' border='1'  cellpadding="0" cellspacing="0">
   <tr bgcolor='#F4D2A2'><td colspan='2' align='center'><b>Editora do Brasil S/A. </b></td></tr>
    <tr><td colspan='1' align='left'><A HREF="/palm/visita_chamado.asp">Fale EBSA</B></A></TD>
    <td colspan='1' align='right'>Data : <% = date() %></td><tr>
       <tr bgcolor='#F4D2A2'>
      <% 
      If Session("Usuario") = "" Then
         %>
         <td>Login: <input type="text" name="USUARIO" size="4" maxlength='6'  border="0"></td>
         <td>Senha: <INPUT TYPE="password" NAME="SENHA" SIZE="4" MAXLENGTH='6'  border='0'>
         <INPUT TYPE="IMAGE" SRC="imagens/botao_ok_v.bmp"></td>
        <% 
     else
       %><td colspan='2'>&nbsp;<span style='font-size:5px;'>Login:<% = Session("Usuario") %> - <% = mid(Session("Usuario_nome"),1,30) & "-" & Session("NIVEL") %></span>
       <a href='logout.asp' target='_top'>Sair</a></td></tr>
       <% 
       'gravar o log de acesso

      ' mostar os links de acesso aos menus dos usuarios 
       sSql = "Select DESCRICAO, LINK, TIPO,ACESSO From VLIBERACAO "
       sSql = sSql & "Where NIVEL = '" & Session("Nivel") & "' AND PALM='S' "
      sSql = sSql & "Group by DESCRICAO, LINK, TIPO, ACESSO Order by ACESSO "
      Set Conn = Server.CreateObject("ADODB.Connection")
      Conn.Open sCo1, sCo2, sCo3
      Set rs = Conn.Execute(sSql)	
      mcnt=1
      Do While not rs.eof
        mcnt=mcnt+1
        If rs("Tipo") = "A" Then
            response.write "<tr><td colspan='2'>" & "<A HREF='" & trim(rs("LINK")) & "'>" & TRIM(rs("ACESSO")) & " - " & trim(rs("DESCRICAO")) & "</a></td></tr>"
        end if
        rs.MoveNext
      Loop
      mcnt=mcnt+1

    end if 
%>
</table>
</from>
</html>
